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PDP-6 LISP (USP 1.6) 

This Is a Bftosaic description of PDP-6 LISP, intended for readers familiar 
with the LISP 1.5 Programmers Manual or who have used LISP on socae other 
computer. Many of the features* such as the display, are subject to change- 
Thus, consult a PDP-6 systems programmer for any differences which may exist 
between LISP of Oct* 14, 1966 and present LISP on the system tape* 

SOME DISTINCTIVE CHARACTERISTICS 

Top-level Input is to EVAL; there 1* no EVALQlfOTE, 
Thus LISP 1 * listen loop may be described by 

(PROG MIL 

A (TERPRt) 

(PRINT (EVAL (REM)))) 
(GO A)) 

One types ATOM followed by a space to get the value of ATOM, 
or (FN (QUOTE argl) (QUOTE arg2)..„) to apply a function to 

explicit arguments. For this reason „ users frequently arrange 
their top-level functions to be FEXPRs or FSUBRs to avoid the 
necessity of quoting explicit arguments. Alternatively f they 
may SETQ atoms to frequently-used or unwieldy argument lists, 
and apply their functions to these atoas. 

(EQUAL fixed-point-number floating-point-number) is NIL* 
(ZEROP 0*0) Is NIL. (EVAL T) is T. (EVAL NIL) is NIL 4 
*T* and F do not exist. 

There Is no a-list* Current bindings of interpreted variables 

and free compiled variables are stored in the CDR of the 

variable 1 * VALUE property, which is also the variable T s 

SPECIAL cell. 

Their values may be changed with SET and SETQ; and CSETQ 

do not exist 4 Higher-level bindings of these variables are 

stored on the special pushdown list. 

All Interpreted variables and free conpiled variables are 

automatically SPECIAL and provide complete communication 

between compiled and interpreted functions. COMMON does not 

exist . 

Flags are not allowed; elements on a property list of an 
atom are expected to be paired. 
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HAP, MAPCARj etCt assume the first arguraent is the 
function, and the second is the list of arguments to 
which it is to be applied. 

There is no DEFINE; defining of functions is usually 
done with DEFPROP. 

The available input-output devices are the on-line 
teletype* the DECtapes, the vidisector, the display 
and the line printer. For their use, see 

"Input-output". 

One may allocate as much as one wishes (within limits) 
of each type °f LISP storage each time LISP is started. 
See "Allocator" for how to use this feature. 

The characters spacer tab and comma are treated ident- 
ically and are used to separate items on a list, and to 
distinguish dot-notation periods from periods denoting 
floating-point or decimal numbers. A sequence of spaces, 
commas, or tabs Is equivalent to a single one. Spaces, 
comas, or tabs adjacent to parentheses have no affect. 
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AKS 
ADDI 

Allocator 



SUBR Absolute value. 

SUBR Result is fixed or floating, saae as 
argument. 

There are five storage areas In LISP: 

a/ Free Storage: holds s -expressions 

b/ Full Word Space: holds character strings of 
print names, floating point and large fixed- 
point numb ex a (see " ftuzab er s 1 ") . 

c/ Binary Program Space: holds compiled functions 
and arrays. 

d/ Special Pushdown List: holds higher-level 
bindings of all special variables. 

e/ Regular Pushdown List : holds return addresses 
for sub-routine calls, bindings of all local 
variables, and is alao used by various internal 
routines- 



' 
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When LISP is loaded, the Allocator types out 
ALLOC? and wait* for the user to type ¥ (yes) 
or N (no). If Y is typed, the Allocator responds 
with MEMTOP= and waits for the user to type an 
octal number (ended with a carriage return) 
which LISP will take as the highest avaiable 
register of memory* The Allocator then simil- 
arly requests typed-in parameters for Che sise 
of Full Word Space. Binary Program Space, 
Special Pushdown List* and Regular Pushdown List, 
Free Storage is given all remaining space. For 
any typed-In number, carriage return alone nay 
be typed In and a standard value vili be taken; 



AND 

append 



MEMTOF 37170 (hopefully this will 

FULL WDS 40fl change soon) 

BIN.PROG.SP. U 

SPEC.PDL 

REG.PDL 10^0 

If N is typed as the response to ALLOC? all 
standard values are taken. In case of error f 
RUBOUT will type an X and cancel the current 
value The Allocator is wiped out by ihe_iirst 
garbage collection; thus a restarted TlSP may 
not be reallocated. 



FSUBR 

L3UBR 



* append 


5UBR 


APPLY 


LSUBR 


ARRAY 


FSUBR 



Returns NIL or last non-Nil argument; 

does not evaluate arguments past first NIL. 

Appends together any number of arguments, 
copying the top level of all but the Last 
of the«. (APPEND) Is NIL and (APPEND X) is 
EQ to X. 

APPEND of two arguments. 

(APPLY fn (args)) or (APPLY fn (args) alist)* 

(ARRAY name par dlml dlm2 .,,) sets up n*-.- 
as an array (actually as a SUBR) . par 
should be T to protect array elements from 
garbage collection; NIL otherwise, (name 
indxl indx2 , rr) returns the value of the 
specified element. (STORE (na«e indxl lndx2 
»..) value) sets the element to value. 
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(NSTORE (name indxl indx2 ,.,) number) 
deposit* the lov-order 18 bits of the 
number in Che array. Both STORE and 
NSTORE evaluate their second argument 
before their first* An array may have 
no more than five dimensions; indices 
run fron to dim-1. 



AJi:i, 



SUBR 



See LSUBR. 



ASSOC 
BAKGAG 



SUBR Uses EQ, 

SUBR (BAKGAG T) enables a backtrace of any 

LISP error except pushdown list overflow; 
(BAKGAG NIL) disables it, A backtrace 
is printed as a series of functicm calls 
33 determined from the regular pushdown 
list, most recent first: 



fnl-fn2 
fnl-EVALARGS 



fnl-ENTER 
?-fnl 



fnl calls fn2 
arguments being eval- 
uated preparatory to 
calling fnl 
fnl being evaluated 
? represents an internal 
routine 



BASE 



VALUE Current radix of fixed- point number 
output j may be modified with SETQ« 



Binary Program Space Storage ar«ain LISP for compiled functions and 

arrays; usually is IfHJfJ registers long. 



BOO I K 



LSUBR (BOOLE n a b c • >*) cause* a 3&-bit 

bitwise Boolean oper.it Eon to he performed 
en a and hj 09 tlw CSSUll ftnc c, etc. The 
number n selects the operation as follows: 
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n 


operation 


n 


operut'-un 





. 


10 


w.b 


1 


a*b 


11 


a=b 


2 


tr*b 


12 


* 


3 


b 


13 


T vb 


4 


a. 7 


14 


¥ 


i 


a 


15 


a vE" 


': 


a vb 


16 


a" vTT 


7 


a vb 


17 


1 



BPEND 



bpdkc: 



CAR 



cm 



VALUE Highest location available for use 
as Binary Program Space .. 

VALUE Current lowest unused location in 
Binary Program Space. 

SUBR Left half- CAR of an atom is the 
"pointer" - 1« 

SUBR Right half. CDR of an atom is its 
property list. 



CAAR, CADR etc. through CDDDDR 



C11RCT 



Compiler 



SUBRS any combination of up to 4 D's and A's. 

VALUE Number of character spaces regaining in 
Current output line. If CHRCT Is and 
LISP is to output a character, it first 
outputs a carriage-return — line-feed and 
resets CHRCT to LINBL (^.v.). 

The Compiler is a collection of SUBRs not available 
in regular PDP-6 LISP, but rather in a special version 
on the System tape as the file LISP CGXP. To compile 
functions txom fiECtape, load the file LISP COHP, type 
(UREAD naael naae2^ Qn tape number tapeno , select 
DECtape output if desired, not forgetting to specify 
an output Cape with (UWRITE tapeno) , type (CXP1) and 
then select DECtape input. (See "input-Output"). When 
the Compiler is finished, file the output if DECtape 
output *a& selected. The Compiler outputs each function 
in LAP-readablc machine language* (See "LAP"). 
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CQNIi 



FSUBR "COND pairs" of predicate and value 

may have other than ttfo elements- If 
the predicate evaluates non-NIL, the 
remaining elements are evaluated in 
CAR-to-CDR order, and the value of the 
last is the value of th* COND, If there 
is only one element,, its value, if non- 
NIL, is the value of the COND, If no 



predicate is true, 
ia NIL. 



the value of the COND 



CONS 



illii? One of the five elementary functions of 
LISP. 



Current Problems 



Compiled CDs and RETURNS happen when 
encountered; interpreted GO a and RETL'SKS 
happen when evaluation of the functions 
they are contained in (except PROG) ia 
completed* Arguments to GO are repeatedly 
evaluated until atomic when interpreted, 
but are evaluated only once when coSpiled. 
Compiled GOa and EETTRttS must appear 
explicitly in the PROG to which they apply ■ 
GOs and RETURNS occasionally confuse the 
compiler when appearing ir. composi'l Tony oi 
functions other than PROG, CONS, AND, 0R P 
and NOT, Variables used free in a functional 
context oust be declared SPECIAL or else the 
compiler will iiil;-,t.iV.£ Chen: for undefined 
EXPRs or SUBRs. 



DECtapes 



DEFPROP 



FSU3R 



To select DECtape inputs spL-iiizy a file by 
using the function UREAD, then type ^J or 
evaluate {IOC Q) or set the value of +Q to T. 
To deselect DECtape input, type /s cr eval 
uate (IOC S) or_ set the value of +Q to NIL. 
To select DECtape output , specify an output 
i;j?v! -,,-j.i h U'«"R~7F, lyre: £< i> r evaluate \'JQC R) 
or set the value of -tR to T* To file output 
use UFILE. To deselect DECtape output, type 
Zr or evaluate (IOC T) or set the value of 
tR to NIL. See UFILE > UKILL, UKEAD, WRITE . 

(DEFPROP atoa property Indicator); value is 
at en. 
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DEPOSIT 



DIFFERENCE 


LS;JHR 


*DIF 


SUBR 


DISAD 


SU&R 


DISCN'T 


VALUE 


DISINI 


SUBR 


DISLIST 


VALUE 


Display 


The d 



-■: 



SL'BR Causes; the fixed-point number which is 

its second argument to be deposited lit 

the absolute machine location which is 

i t s fir s t .: : . r g ■ j in :j n t . 



argl - arg2 - arg3 ... (DIFFERENCE) is 
DIFFERENCE of tvo arguments. 

See "Display* 1 , 

See ''Display' 1 . 

See "Display". 

See "Display". 



The display is different from other output devices in 
that PRINT and related functions cannot send outputs 
to the display. Instead, text is displayed from LISP 
arrays which are on the DISLIST* To place text on the 
display, first perform (DISINI (QUOTE arrayname)) which 
initialises element ft of the array to a character mode 
entry and the reaaining elements to escape characters > 
destroying the previous contents of the array* Put this 
array on the DISLIST with a (SETQ DISLIST (LIST GET 
(QUOTE arraynane) QUOTE SUBR)})}, More than one array 
can be put on the DISLIST, but if they have all been 
DISINI fl ed, they will overprint on the display. To avoid 
this, or to use the display in other than character mode 
use NSTORE (£.v.). To put text In an array > (DISAD(QUOTE 
arrayname) par arg) in effect performs a PRI&l or PRINC 
{according as par is non-NIL or NIL) of arft into the 
specified array. In other words, the text of an s- 
expression is appended to the text currently 1a such an 
array. DISCNT is for the display what CHRCT is for all 
other output devices ; when it reaches zero, DISAD inserts 
a carriage-return-line-feed in the text being put in an 
array and resets it to LINEL. 



SUBR Will work for atoms and positive fixed-point 
numbers less than about 4000 Td ' otherwise use 
EQUAL. 



ID' 
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EQUAL 



KKR 



ERRSET 



Z.VA'_ 



yiiKR :-'laatin^ point numbers are EQUAL only If 

they are exactly equal* To compare a 
fixed to a floating — point number, first 
float the former by performing (FLITS fixed* 
point number 0*0) * 

LSUBR lakes or 1 argument* Causes a non-printing 

LISP error condition: the argument of ERR for 
Nil, if there is none) Is returned as the value 
of the most r*cfcnt ERRSET, 

PSUBR (ERRSET (fn arg . ..)) has the value RIL (but see 

ERR, above) if an error occurs while evaluating 
(fn arts > + *), and the value of (list ( f n args 4 « «~j j 
o therwisiT Optional second argumenF^^nhibit§ 

" *ff ■ ■ » ■ !— — - — ■ . I c — -• — Kw-^Brr.- ^f iilffc.iri*«»l|jf^tT" h* 

■ ^--^ . error j™?**.?**© printout* umj -- J - - ■ r * M 

LSUJJtt ^If T'SttSM a?gir*5ftt"iB~given'ff TS ^Bed 

instead of the present "p a-list'\ (EVAL 
number) is that number. In entering a 
function, arguments are evaluated Trorb left 
to right* (EVAL atom) is (CDR (GET (QUOTE 
atom) (QUOTE VALUE))), unless there is no 
VALUE property or the above computation 
returns the pseudo-atom UNBOUND, in which 
case a LISP error occurs and the offending 
atom is printed, followed by the message 
"UNBOUND VARIABLE - EVAL." (EVAL x) wbere 
x is non-atomic and (CAR x) is atomic 
proceeds as follows: the interpreter 
determines (GCTL (QUOTE CAR x) { QUOTE (SUBR 
EXPR FSUBR FEXPR LSITBR MACRO))) „ or* if 
this is NIL, (EVAL (CAR x)>. If x has no 
VALUE property, a LISP error occurs and x is 
printed with the message "UNDEFINED FUNCTION." 
Having found a function, It then evaluates its 
arguments if appropriate and applies the 
function to them. When (CAR x) is non-atomic 
it immediately evaluates the list of arguments 
i.e., (CDR x). It then compares (CAAR x) to 
LAMBDA, LABEL and FCWARG, taking appropriate 
action in each case. Failing this* It applies 
(EVAL (CAR x)) to the members of (CDR xK 



EXAMINE 



EXPLODE 



SUBR Argument Is number, which is taken as 
absolute machine address; value Is 

contents of said ad d re s s as a i i.x-vti 
point nuober. 

SUBR Argument is s-expression; valu* is list 

of atoms whose print names are single char- 
acters, which concatenated would form the 
print name of the argument. For example, 
(EXPLODE (QUOTE FOO)) has the value (F0 0). 
EXPLODE like FRIHl, inserts slashes, so 
(EXPLODE (QUOTE (QUOTE FOO/BAR)) PRINl's 
as (F // / B A K) or PRItfC's as 
(FOO/ BAR). 



EXiu.OLEr: 



slhi: EXPLODEC Is to EXPLODE as PRINC is to PRIM, 
Example ; (EXPLODEC (QUOTE FOO/BAR)) would 
PRIN1 as (F / 6 A R) or FRINC as 
(FOO BAR), 



EXPR 

FFXFR 



Indicator for s-exprcsslon function* 



Indicator for s-expression special form. Its 
lambda-list may have one or two members; the 
second is bound to the current "a-list*" 



FIX 



SUB a Argument Is « fixed or floating-point number; 

value :.-■■■ t :-..ncated rixed-pn^nr valut* i:t 
argument* 



FIXKU^ 



Indicator for a fixed-point number, Stt 
"Numbers' 1 , 



FIX1A 

FLATS I ZE 
FLOHUM 



sir. 



SUM 



(PUSHJ P FIX1A) Turns the actual fixed point 
number in 1 into a LISP number, Jl-v. 

(LENGTH (EXPLODE arg)) 

Indicator for floating-point number* See 
^Numbers 11 . 



Free Storage 



Storage area in LISP for s^expressiona* Take* 
all memory which is free after the four other 
storage areas have been allocated* See 
"Allocator". 
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FSUBR 



Full Word Space 



Indicator for special-form subroutine; 
the next pointer on the property list 
points to the first instruction in the 
routine^ To use the current "a-list" 
a FSUBR must call *AMAKE, which leaves 
a pointer to same in 2 + 

Storage area in LISP for character strings 
of print names, floating-point numbers* and 
negative fixed-point numbers, and large 
positive fixed-point numbers. 



FfKARG 



One of the three indicate re the interpreter 
look* for when evaluating a non-atomic 
s-expression with a non-atoaic CAR. 



function 



To the interpreter, has the same effect as 
QUOTE. To the compiler, causes compilation 
of its argument. 



♦FUNCTION 



Causes FUKARG binding when encountered; 
otherwise identical to FUNCTION. 



CC 



SUBR 



GENSYM 

c:kt 



SUBR 
SUHB 



Takes no arguments, causes a garbage coll- 
ection, and returns NIL- To cause typeout 
of garbage collector statistics , type M 
To inhibit this typeout t type /c 

GM01, G0002, etc* 

(LAMBDA (A B> 

(COND{(NULL (CDR A)) MIL) 

(<EQ CCADR A) B) {CADDR A)) 
{{GET (CDDR A) B)))) 



A typical use, (GET {QUOTE atom) (QUOTE 
indicator}}, would return the property if 
it was found or NIL. If the property could 
be NIL* an amiguity could result in the 
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GETL 



: :~UiiR Similar to GET but second argument Is 

* list of indicators* The value returned 
is either NIL (indicating no property 
with any of the desired indicators was 
found) or such that (CAR (GETL ...)) £b 
the indicator, (CADR (GETL.*.)) is the 
property, and (CDDR (GETL >►*)) is the 
rest of the property list, GETL like 
GET stops at the first satisfactory pair 
on the property list . 



GC 



FSUBR If Argument is non-atomic, it is repeatedly 
evaluated until it is atomic. However, see 
"Current Problem". 



GREATEEP 
*GREAT 
1BASE 

Input -Output 



LSUBR Takes any nuaber of arguments; returns T 

only if argl > arg2 > arg3 » » »; returns 
SUBR NIL otherwise. GREATERP of two arguments* 

VALUE Radix of fixed-^point number inputs May be 
modified with SETQ. 

The input-output devices available to LISP axe the 
on-line Taletypft, the DECtape? » the vidisectcr, the 
display, an.; i 'v ! i • ... -:.i ,..■-. Input from the 
Teletype and the DECtapes is through the function 
READ; typing ££ or evaluating (IOC Q) or 
SETQ'ing the atom +Q to T will cause DECtape input to 
be selected; no further s-fcxprcssions will be read 
from the Teletype until an end-of-file is read from 
tape, & is typed, (IOC S) is evaluated, or -KJ is 
SETQ 1 ed to NIL, Input froa the vidisector is through 
the function VTDI, j f v. There are similar switches for 
the Teletype, the DECtapes, and the line 
printer on output „ which are shown in the summary 
below* Output to the display is from arrays in memory 
through the functions DISINI, DISAD and the value 
DISLIST* See "Display" - The DECtape routines must 
be given names of input files and numbers of output 
tapes before DECtape input-output can be done. For 
this purpose, the functions BREAD, (WRITE „ UFTLE and 
UKILL are provided. See n DECtapes" + 



L2. 



Summary r 



Device 



Input 

through Select 



Output 
Deselect through Select Deselect 



(Default option) PRINT £v #tt 
#Q #S PRINT #R tfT 
PRINT il JE 

See "Display" 



Teletype READ 

DECtape READ 

Line printer 

Display 

Vidiaector VTDI 

When the above control characters are typed, they are 

not seen by READ* but are seen by ftEADCH. See also 

IOC, I0G Display. DECtape*, Teletype, Line Printer, 

and VIDI* 



INTERN 



Iran 



roc 



roc 



SLB3 Argument Is pointer to atom structure; puts 

said atom on OBLIST and returns (probably new) 
atom pointer . 

SYM The largest fixed-point number which aay be 
represented by no more list structure than, a 
"pointer 1 ' one larger than itself. 

FSUBS TdELitic.il to typing the characters in its 
arguments with the control key held- Its 
value is its argument list. 

SUBR Saves up the current state of all i-o switches, 
performs IOC of the value of its first arguaent, 
evaluates its second argument which is of the 
form (FUNCTION args) then restores the i-o switches 
to their former states. 



LABEL 



LAMBDA 



One of the indicators which EVAL looks for when 
evaluating an s-expression with a non-atomic CAR. 

One of the three indicators EVAL looks for when 
evaluating an s-expression whose CAR is non-atomic - 



c 
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LAP LAP Is not part of the LISP on the system tape, but rather 

as a file of s-expr ess ions on the system tape as file £ LAP, 
(LAP name indicator), where the indicator is SUBR, FSUBR, or 
LSUBR, causes LAP to call READ repeatedly, each time reading 
one Cag or storage word. An atom is taken as a tag, except 
for NIL which indicates the end of the function being read; 
a non-atomic s-expresslon is taken as a storage word in either 
the format (Inst Ace Adr) or the format (Inst Ace Adr Indx) . 
Inst should be a PDF- 6 Instruction anemonic t optionally suf- 
fixed <? (e.g. HLRZ$) for the indirect bit. Ace should be a 
number from - 17, or P, the regular pushdown pointer f Adr 
may be a numeric machine address, a tag in that function, a 
negative number* one of certain symbols for entry points to 
LISP Internal routines, or a list in one of the following 
forms: (QUOTE atom) for a pointer to atom ; (SPECIAL atom) for 
a pointer to atom's special cell (which is the CDR of the 
VALUE property); (E atom) for a pointer to the name of a 
function being called; or (C w x y Z) for a pointer to a 
constant, i.e.* a storage word containing (v x y e). Indx 
la an optional left-half quantity, such as an index register 
specification, of the same form as Adr , The best way to get a 
hsnd-coced function into the system is with LAP. A SUBR may 
have no more than 5 arguments, the values of which are placed 
in accumulators 1 through 5 when the SUBR is called. A 
pointer to the argument list of an FSUBR is in I. The 
arguments of an LSUBR are on the regular pushdown list, last 
on top, and - (number of arguments) Is in 6. Accumulators 
1 through 7 are the ONLY accumulators available for use 
within a subroutine, which is expected to return its value 
in accumulator 1- (PUSHJ P *AMAKE) will return a pointer to 
the "a-list" in accumulator 2- 

Thus, a typical usage of LAP to get a hand-coded 
into the system would bet 

CLAP AJ3S SUBR) 

(PUSHJ P NUMVAL) 

(MOVMS 1) 

(JCALL 2 (E MAKSIM)) 

Four UUO (trap) Instructions are available for LAP i CALL, 
JCALL, CALLF and JCALLF+ These are to he used for function 
calls in the form (CALL n (E fn)) where n is as follows t 
through 5, calling a SUBR or EXPR with (J to 5 arguments; 
16 octal, calling LSUBR with arguments on pushdown list and : 
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- (number of arguments) in accumulator 6j 

17 octal, calling an FSU5R or FEXPR with pointer to argument 

list in l fc 

When one of these UUOa ±6 first oxfccutedj the TJTJO handler will 

call the interpreter if calling an EJCPR or FEXPR, otherwise in 

the ease of a CALLF or JCALLF will execute a PUSHJ or JRST, 

respectively, to the specified function » and in the case of CALL 

or JCALL will execute the PUSHJ or JRST but in add i ton will 

change the UUO to a PUSHJ or JRST unless (NOUUO T) has been 

evaluated . 

The F forms Site necessary to call functions whose names are 

computed; the J forms save code in the case of (RETURN (fn ...))■ 



LAST 



SUBK 



(LitfffiDA 



(A) 

(cokd 



< (ATOM 
((LAST 



(CDR 

C:;.:.!: 



A)) A) 
A)))) 



LENGTH 



SUBR 



LESSP LSUBR 
*LES5 SUBR 

Line printer 



(LAttBDA 



(A) 
(COtfD 



((ATOM A> 0} 
((ADD! (LENGTH 



(CDR A»)>» 



Takes any number of arguments* returns T only if 
argl <arg2 <arg3 ,., etc., and NIL otherwise. 
F.KSSP of two arguments. 

Output to the line printer may he 

selected by typing fa or setting +B to T T and 

deselected by typing /& or setting IB to NIL* 



LENEL 



VALUE 



LIST 

LSH 



SUBR 



That Dumber of characters which will be output 
before the LISP output functions will insert a 
carriage-return-line-feed and reset CHRCT to 
LIHEL. LINEL may be modified by SETQ- 

(LAMBDA (A) (MAPCAR (FUNCTION EVAL) A» 

Logical left shift of the value of the first 
argument by n places „ where n is the value of 
the second argument > which nay be negative. 



LSUBR 



Indicator for subroutine function which nay take 
any number of arguments which ars placed on the 
regular push down list, last on tup- The negative 
auaber of arguments is placed In accumulator 6+ In 
an s -express ton function, the notation (LAMBDA var 



..-) 



r 



15. 



where the "LAMBDA-list" is an atos, Indicates 
that the variable var is to be bound to the 
number of arguments, and the values of the 

arguments may bo sot I L'rt by calling (A '-if- L) 
(ARC 2),etc> 



MAC MP 



LSUER 



WRC 



With no arguments, causes a garbage collection, 
zeroes the free storage list s waits for all 
output to finish, and transfers control to 
MACDMP. If an argument is given t the PRINC of 
it is given to KACttCP as a comnand* 

Indicator of a MACRO property, simulated by the 
interpreter and expanded at compile time* Th* 
property should be a function of one argument,. 
When a call Co this function is Encountered, the 
list which is the function call (1.**, CAR of it 
is the function name) is ftd to the macro defini- 
tion as the one argument- Then the MACRO property 
function is expanded, for examples 



MAXflAM 



KMliK 



HAnv.y. 



SUBR 



(DEFPRQP CONS CONS 

(L.WBDA 



(A> 
(COM) 



((HULL (CDDR A)) (CADR A)) 

((LIST (QUOTE CONS) 
(CADR A) 
(CONS (CAR A) 

(CDDR A)))))} 



::ai:::c;! 



would cause (CGNSCONS A B C) to expand first, to 
(CONS A (CONSCONS B C)), then to (CONS A (CONS B 
(CONSCONS C))), and finally to (CONS A (CONS B C)h 
which Is what would be interpreted or compiled 4 

Argument is list of atoms whose print names are 
single characters (actually it cakes tiie first 
character of each print name) ; value Is pointer 
to s-expres&ion which if printed out, would be 
the concatenation of the single characters which 
were its arguments* 

Turns the pointer which is its first arguaent 
into a LISP fixed - or floating-point nu*aber p 
according as whether its second argument evaluates 
to FIXNUM l: r KLONlJM. 
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MAI'C 



SUE! ?. 



MAPCAR 


SUBR 


MAPLIST 
MEMBER 


SUBR 
SUBR 


MEMQ 


SUBR 


MINUS 


SUBR 


MTNUSP 


SUBR 


NCOHC 


LSUBR 


WCOKS 


SUBR 


Hit 


VALUE 



KOT 
NOUUO 



NSTORE 



N'ULL 
NUHBERP 

Numbers 



SL"B3. 
SL3R 



FSUER 



First argument Is function; second is 
argument list* Returns NIL, does no 
CONSes. 

First argument is function; argument is 
second « 

Function Is first argument; argunftnt list is second 

Uses EQUAL 

Like MEMBER, But uses EQ. 

- (argument). 

Returns T If argument is less than 0. 

Takes any number of arguments* (NCONC) iB 
NIL. (KCONC x) Is EQ to x* 

(LAMBDA (A) (CONS A NIL}) 

False value of predicates, explicitly 
tested for by C0HD+ (EVAL NIL) is NIL 
OJIHIL ex nihllo), (XAKNLH NIL (QUOTE 
FIXNUM) is 0. NIL ends lists. 

Identical in value Co NULL. 

(NOUUO T) prohibits the UUO handler frora 
changing CALLs and JCALLs to PUSHJs and 
JRSTs, enabling tracing of the functions 
SO called, (NOUUO NIL) restores that 
ability, 

(NSTORE (name Indxl indx2 ...) number) 
deposits the low-order 18 bits of number 
in the specified cell in the arr#y name . 
NSTORE evaluates its second argument first. 

Identical in value to NOT, 

Returns T if its argument Is a number; 
NIL otherwise. 



SUBR 
SUBR 



Positive fixed-point numbers less than about 4#00 decimal 
are represented by "pointers" one greater than their value 
and no further list structure. Floating-point numbers and 
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other fixed-point numbers are represented by atom 
structures whose property List contains a pointer 
to either one indicator FIXNUM or the Indicator 
FLONUM, and a pointer to a word in Full Word Space 
containing the actual number. For numeric input 5 
see READ* tumeric output for floating-point is 
decimal; otherwise, is in radix BASE, and if that 
radix Is 10 decimal. LISP vill end the nuaber vith 
a decimal point unless *NOFGIWT has been set to T + 
The arithmetic functions (except MINUS) take any 
number of arguments, and use fixed-point arithaetic 
until the first floating-point operand is encountered* 
at which time the current result and all succeeding, 
fixed-point operands are floated, and the result is 
floating-point . 



NUMVAL 



SIM 



(PUSHJ P NUMVAL) with a LISP number in 1 
returns a machine number in 1. 



OBLIST 
OPS 

OR 



VALUE 

FEXPR 

■ 

FSUER 



The object list, a list of buckets of atoms* 

or FSUBR Part of LAP. Take* pairs o£ 
arguments of the fora sya value * gives 
each sym a STM property of value. 

Takes any number of arguments; returns 
first non-NTL argument or NIL; does not 
evaluate arguments past the one it returns. 



PLUS 
PNAME 



LSUBR 



argl + arg2 +■ arg3 ... 

Indicator for print name property. The 
property Is a list of pointers to words 
in full word space containing the actual 
character string. 



PRINC 



SLHM 



Prints any s-expression; does not insert 
slashes befor* characters which must be 
quoted with a slash on type-in. PRINC 
docs not print a space before or after 
what it prints. 



PRINT 



SIIHR 



Identical to (PR0G2 (TERPRI) (PRIN1 arg) 
PRINC < QUOTE / ))), 
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PRIH1 



SUBR 



PROG 



Pi:i:x;2 



HUTI'Kiil' 



FSUER 

SUBK 

SUBR 



Quit 



QUOTE 


7 3 LTi P. 


QUOTIENT 


LSUER 


READ 


SUBR 



Prints any s-expresslon; inserts slashes 
before characters which would otherwise 
be syntactically incorrect as part of an 
atom's print name, such as +, (, etc. 

Evaluates each member of its argument f 
disregarding its value. Enables the 
writing o£ ALGOL-like prograns in LISP. 

Returns the value of the second of fever 

than seven arguments, 

Puts the value of its second argument on 
the property list of the value of its 
first argument with the indicator which is 
the value of its third argument. 

A user may quit at any time by typing/b (be 11) 
or evaluating (IOC G) . This returns LISP 
to the top level instantly without, however, 
emptying input or output buffers - 

Except that it is an FSUBR, identical to CAR, 
argl / arg2 / arg3 / arg4 . , , 

Reads one s-expression from the currently 
selected input device; see "Input-Output". 
A number without a decimal point is assuned 
to be in radix BASE, a number with digits 
only to the left of a decimal point is 
assused to be a fixed-point decimal number; 
a number with digits on both sides of a 
decimal point is assumed to be a decimal 
floating-point number* Typing a xubout 
will rub out the last s-expression if the 
last character typed was space, ), combe, 
or tabs "ill tub out the last ( if ( was 
the last character typed; otherwise will 
rub out the last atom fragment typed. Any 
character which would otherwise be syntact- 
ically incorrect as part of an atom's print 
name, such as an initial digit or (or ., 
may be quoted with the character /. / Itself 
may be quoted this way. The various characters 



r 



IS. 



r:-ai>Cii 



READLIST 



which control LISP f s input -output switches 
may also be quoted this way, but will still 
have their usual effect, Unless so quoted, 
these characters are not seen by READ* 

SUBR Reads one character fros the seLected input 
device; see "Input-Output". The various 
characters which control LISP 1 9 input-output 
switches are seen and treated ag any other 
characters, but still have their usual effects,. 

SUER Similar to F-fAKNAM £-v - * but automatically IMTERNs 
any atone appearing in the resulting s-expreBsion. 



Regular Push Down List Storage area in LISP containing returns for function calls 

and bindings of all local variables. Normally contains 
1000 registers. 



REMLAr 



RZ>:02 



REMPROP 



HlVfURN 



FEXPR Part of LAP. REMOBs all functions as roc laced 

vith LAP. With an optional argument of T, rejaovej 
the SYM property of all atoms which possess it* 

FSUBR Take any number of atomic arguments; removes chem 
from the OBLIST and returns NIL, 

SUER Removes the property with the indicator vhich 

is the value of its second argument from the atom 
which is the value of its first argument- Returns 
T if the property was there, and NIL otherwise. 

SUBR See "Current Problems"* 



UKVOKK 

RFLACA 
RPLACD 

S ASSOC 
SET 



SUBR Reverse* the top level o£ a list, using CONS. 

MiBK Replaces CAR of the value of its first argument 
vith th& value of its second argument. 

SUBR Replaces CDR of the value of its first argument 
with the value of its second argument. 

SUBR Uses EQ. 

SUBK Causes the value of its second argument Co be 

placed, with RPLACD, in CDR of the VALUE property 
of the value of its first argument. 



f 

■ 



::::-;. 



SETQ 


FSUBR 


s' ::';: 


SDER 


SFEAK 


SUBR 


SPECBIND 


sv:i 



(SET (QUOTE argl) arg2) , 

Sets (TIME) counter to value of its argument. 

T*kes no arguments 4 returns current value of 
COWS counter* 

(FUSHJ P SPECBIUII) (0 varl) (0 ti var2) , . - 
causes the current binding of the special 
variables ya_rl and var 2 to be saved up on 
the Special Push Down List, and causes varl 
to be bound to BTL and var 2 to be bound to 
the contents of accumulator n. 

Part of the compiler. Declares all of the 

a terns which are in its list of arguments to 
be SPECIAL. However, all free variables In 

compiled vjtk i . :". :r\>-; 7<rf autumn ' i f"i • y ..-~rri.il. 
There is no UNSFECIAL; use (RB5FROP (QUOTE atom) 
(QUOTE SPECIAL). 

Special Push Down List Storage are in LISP where higher-level bindings o£ 

special variables are stored, Normally 1000 registers long. 



SPECIAL 



FEXFR 



SFECSTR 
STORE 



SYM 

FSUBR 



SU31 

SUBST 

SUE1 
SYM 

T 



SUBR 



SUBR 



VALUE 



(FUSHJ P SPECSTR) restores most recent batch 
of special variable bindings* 
(STORE Cnaae indxl indx2 ...) value) sets 
the value of the specified cell in the array 
name to the value value. See "ARRAY". 
Evaluated its second argument first. 

Indicator for subroutine function property. 
Property is pointer to first instruction in 

routine. 

Uses CGESes. Use < SUBST arft) to copy 
the value of arg, . 

Value la fixed or floating,, same as argument. 

Indicator for symbol value property. Used by 

LAP. 

True value of predicates. (EVAL T) is T 

(Veritas tiumquaro perit) . 
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Teletype 



tiepri 



Teletype input is automatically selected when no other 
Input is selected- Output is initially selected, but 
may be deselected by typing &L by evaluating [IOC W) 
or by setting the value of fU to T« It may be reselected 
by typing *2F evaluating (IOC V), or by setting the value 
of fW to NIL. 



SUHR 



Takes no arguments; prints a carriage- 
retum-line-feed, and returns NIL. 



tt:'E 



tikes 



SUBR 

LSUBR 
SUBE 



Returns, as a fixed-point number, the 
number of sixtieth* of a second LISP hay 
been running since the i aB t call to 
SETTIME* plus the last argu»fcrtt to SETTII-IE , 

argl * arg2 * arg3 . . . 

Outputs the character whose ASCII value is 
the value of its one argument. 



UFILE 



UKILL 



F5UM 



LSU3K 



Files all DECtape output which lias happened 
since the last WRITE or UFILE and files it 
as argl arg2 . Has vaLue of current tape number , 
or, if file conmand failed, NIL. 

There Is currently roan in LISP for only two 
DECtape file directories, UKILL reclaims the 
space uBed by the directory of the tape whose 
number Is its argument if an argument is given j, 
otherwise of the current tape. Value Is the 
argument or the current tape number. 



uread 



v^:<v. 



Takes two or three arguments. First two are 
file fiaae (if file has one name, first argument 
must he §); third is tape number. If third 
argument is not given, current tape number is 
assumed- The current tape number Is Initially 
2. The value of UREAD is the resultant current 
tape number* 



UVRTTE 



LSJM 



Specifies an output DECtape y causing previous 
unfiled output to that tape to be forgotten. 
If no argument is given t the current tape is 
assumed. Returns either its argument* 1 * to the 
current tape nu&ber* If the specified tape is 
full, the error message "TAPE FULL" will be printed. 



< 
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VALUE 



VZDI 



Indicator for value property, The value 
cell/special cell is CDR of the VALUE property. 

SUBR Takes two fixed-poitit numbers as arguments; 

ttt turns number which is a function of bright- 
ness at the point (argl* arg2) on the 
vidis sector* (TVE) , 

Vidissector input from the vidissector is through the function V1DI, 



KCONS 

ZZROP 

*AXAKE 

*LCALL 



*N0POINT 



*RSET 



SUBR 

SUBH 
STM 

SYM 



VALUE 



SURR 



(CONS arg2 *rgl) 

(ZEROP 0,0 is Nil) . 

(PUSHJ P *AMAKE) returns a pointer to the 
current "a-list" in 2, 

(JSP 1 *1CALL) in an LSUBR which hag bean 
called by the interpreter puts the number of 
arguments in 1 # and a pointer to the arguments 
on the top o£ push down list. 

When set to l t inhibits the printing of 
daclnal points after typeout of decimal 
numbers. Setting *NOPOTNT to MIL restores 
this typeout. 

(*HSET T) inhibit* the rebinding of special 
variable* to top-level values when a LISP 
error occurs; (*BSET NIL) permits this 
rehinding. 



